home *** CD-ROM | disk | FTP | other *** search
/ Power CD / Power CD ATARI-Rechner Lieben.iso / SPEZIAL / GEMVIEW / VERSION.3 / MODULS.SRC / LOADMODL / _IFF.S next >
Encoding:
Text File  |  1993-10-15  |  2.2 KB  |  64 lines
  1. module    EQU       "GVWL"
  2. intrface  EQU       0x0100
  3. gvw_ext   EQU       ".IFF"
  4. MACRO gvw_name
  5.                    ;"----------------"
  6.           DC.B      "IFF Imagefiles  "
  7.           ALIGN     16
  8.                    ;"----------------"
  9. ENDM
  10. MACRO gvw_copyright
  11.                    ;"------------------------"
  12.           DC.B      "V 1.00 Oct 22.`93 (c) by"
  13.           ALIGN     24
  14.           DC.B      "Dieter Fiebelkorn"
  15.           ALIGN     24
  16.           DC.B      "Grüner Weg 29a"
  17.           ALIGN     24
  18.           DC.B      "D-45768 Marl (Germany)"
  19.           ALIGN     24
  20.                    ;"------------------------"
  21. ENDM
  22.  
  23. spprt_mon EQU       0x0001
  24. spprt_col EQU       0x0002
  25. spprt_tc  EQU       0x0004
  26. spprt_all EQU       0x0007
  27.  
  28. flag_null EQU       0x0000
  29. flag_res  EQU       0x0001
  30. flag_auto EQU       0x0002
  31. flag_fsel EQU       0x0004
  32.  
  33. rsvd_null EQU       0x0000
  34.  
  35.  
  36.           GLOBL     iffLoad
  37.           GLOBL     form_alert
  38.           GLOBL     errno
  39.  
  40.           JMP       gvw_failed                                  ; $00
  41.           JMP       iffLoad                                     ; $06
  42.           DC.L      module                                      ; $0C
  43.           ALIGN     4
  44.           DC.W      intrface                                    ; $10
  45.           DC.W      spprt_all                                   ; $12
  46.           DC.W      flag_fsel|flag_auto                         ; $14
  47.           DC.W      rsvd_null                                   ; $16
  48.           DC.W      rsvd_null                                   ; $18
  49.           DC.W      rsvd_null                                   ; $1A
  50.           DC.L      gvw_ext                                     ; $1C
  51.           ALIGN     4
  52.           gvw_name                                              ; $20
  53.           gvw_copyright                                         ; $30
  54. gvw_failed:                                                     ; $90
  55.           MOVE.W    #1, D0
  56.           LEA.L     str_failed, A0
  57.           JSR       form_alert
  58.           CLR.W     -(A7)
  59.           TRAP      #1
  60. str_failed:
  61.           DC.B      "[3][ | This is a GEM-View Module! | ][ Abort ]"
  62.           EVEN
  63. errno:    DC.W      0
  64.